home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / keymakr.exe / ADDRKEY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-08  |  1.9 KB  |  49 lines
  1. UNIT AddrKey;
  2. (****************************************************************)
  3. (*                     AddrKey By C. Franz                      *)
  4. (*     Copyright (c) 1990, By Carl Franz & JFL Consulting       *)
  5. (*                                                              *)
  6. (*                         AddrKey                              *)
  7. (*                                                              *)
  8. (*  Purpose: Create a Database key from a structure of type     *)
  9. (*           ADDRTYPE.  Using this key or part of it you can    *)
  10. (*           find addresses from as little as the zip-code      *)
  11. (*           and the street name or number.                     *)
  12. (*                                                              *)
  13. (*           It will throw out address buzz words (see lists    *)
  14. (*           in ADDRKEYL) in an attempt to find the street      *)
  15. (*           number, name, apartment number (if any), and       *)
  16. (*           turn the mess into a hash key.  It works fairly    *)
  17. (*           well.  If you have a better idea you can easily    *)
  18. (*           modify the code to suit your needs.                *)
  19. (*                                                              *)
  20. (****************************************************************)
  21.  
  22. INTERFACE
  23.  
  24. USES KeyTools;
  25.  
  26. TYPE
  27.    AddrType = RECORD {standard address record description}
  28.       Addr1 : String[40];
  29.       Addr2 : String[40];
  30.       City  : String[15];
  31.       State : String[2];
  32.       Zip   : string[5];
  33.    END;
  34.  
  35.    KeyStruct = RECORD {AddrKey elements before being turned into a STRING }
  36.       Zip    : String[5];
  37.       Street : string[5];
  38.       StNum  : integer;
  39.       Apt    : byte;
  40.    END;
  41.  
  42. VAR AKKey      : keystruct;
  43.  
  44. FUNCTION AddrToKeyT(Address : AddrType) : String;
  45.  
  46. FUNCTION AddrToKey(Addr1, Addr2, Zip : String) : String;
  47.  
  48. IMPLEMENTATION
  49.